Willamette Falls Fish Passage

# reading in the data
fish_passage <- read_csv(here("data", "willamette_fish_passage.csv")) %>% 
  clean_names() %>% 
  pivot_longer(cols = 3:15, names_to = "species", values_to = "counts")  %>% 
  mutate(date_new = mdy(date)) %>% 
  filter(species %in% c("coho", "jack_coho", "steelhead")) %>% 
  as_tsibble(key = species, 
             index = date_new)

Overview

Photograph of the Willamette Falls Fish Ladder. Photo credit: Yancy Lind

• An engaging image (with caption, including photo credit) that is relevant to the data set

• A brief summary (3 - 4 sentences) of the data set, and what is included in this “report”

• A map of the fish ladder location (you can make this in R on your own, or include an existing map appropriately licensed, with attribution)

• A professionally formatted data citation

• Remember: All code that you used to wrangle the data and prepare the graphs should be available to see if we click on the Code buttons.

Data source:

Columbia Basin Research. DART Adult Passage Graphics and Text. Dates: 2001-01-01 to 2010-12-31. Accessed: 2021-01-29. School of Aquatic & Fishery Sciences, University of Washington. URL: http://www.cbr.washington.edu/dart/query/adult_graph_text

Time Series

tab_1 <- fish_passage %>% 
  select(species, date_new, counts) %>% 
  mutate_if(is.numeric, ~replace(., is.na(.), 0)) %>% 
  mutate(year = year(date_new)) %>% 
  mutate(species = case_when(
    species == "coho" ~ "Coho",
    species == "jack_coho" ~ "Jack Coho",
    species == "steelhead" ~ "Steelhead"
  ))

ggplot(data = tab_1, aes(x = date_new,
                         y = counts)) +
  geom_line(aes(color = species)) +
  #facet_wrap(~species, scales = "free_y") +
  labs(x = "Time (years)",
       y = "Number of Salmon",
       title = "Coho, Jack Coho, and Steelhead Ladder Passage - Willamette River, Oregon")

Figure 1: Coho, Jack Coho, and Steelhead passage through the Willamette Falls fish ladder on the Willamette River, Oregon, starting in 2001 and through 2010. Coho is indicated in red, Jack Coho is indicated in green, and Steelhead is indicated in blue. Data from: Colombia Basin Research. School of Aquatic & Fishery Science, University of Washington. Date accessed: 2021-01-29. http://www.cbr.washington.edu/dart/query/adult_graph_text

• Fish passage tends to be higher for Steelhead and Coho.
• Fish passage varies seasonally for each species. Steelhead tend to pass through earlier in the year than Coho and Steelhead.
• Coho passage shows a marked increase in 2009 and 2010.

Season Plots

# create seasonplots for each species
fish_passage %>% 
  mutate(species = case_when(
    species == "coho" ~ "Coho",
    species == "jack_coho" ~ "Jack Coho",
    species == "steelhead" ~ "Steelhead"
  )) %>% 
  gg_season(y = counts,
            pal = scales::viridis_pal()(9)) +
  facet_wrap("species") +
  ylab("Fish counts") +
  xlab("Date") +
  theme_classic()

Figure 2: Coho, Jack Coho, and Steelhead abundance through time on the Willamette River, Oregon, for 2001-2010. Each line represents a different year. Data from: Colombia Basin Research. School of Aquatic & Fishery Science, University of Washington. Date accessed: 2021-01-29. http://www.cbr.washington.edu/dart/query/adult_graph_text

• Coho and Jack Coho abundances peak around October with sightings dropping off within a few months away from October in either direction. In contrast, Steelheads were counted throughout the year and their abundance peaks in the spring/summer, rather than during the fall.
• Jack Coho appear to be the least abundant of the three fishes, Coho have the largest abundance peak, and Steelheads appear to have the largest total abundance as well as the most consistent presence throughout the year.
• Coho and Jack Coho abundances appear to be increasing in time (highest peaks are later years), whereas Steelhead abundances may be decreasing (top peaks are earlier years).

Annual totals